home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / connec1r / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-07-14  |  4.9 KB  |  169 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H000080FF&
  4.    Caption         =   "Shaun's Learning Program"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   4140
  7.    ClientTop       =   3555
  8.    ClientWidth     =   4680
  9.    ForeColor       =   &H000080FF&
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3195
  12.    ScaleWidth      =   4680
  13.    WhatsThisHelp   =   -1  'True
  14.    Begin Project1.UserControl1 UserControl11 
  15.       Height          =   375
  16.       Left            =   240
  17.       TabIndex        =   5
  18.       Top             =   2640
  19.       Width           =   4095
  20.       _ExtentX        =   7223
  21.       _ExtentY        =   661
  22.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   12
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       NormTextColor   =   0
  32.       HoverTextColor  =   255
  33.       URL             =   "http://www.angelfire.com/me/Shaun101"
  34.       Caption         =   "http://www.angelfire.com/me/Shaun101"
  35.    End
  36.    Begin VB.Timer Timer1 
  37.       Interval        =   500
  38.       Left            =   1800
  39.       Top             =   1560
  40.    End
  41.    Begin VB.CommandButton Command1 
  42.       Caption         =   "Enter Here"
  43.       Height          =   375
  44.       Left            =   1320
  45.       TabIndex        =   2
  46.       Top             =   960
  47.       Width           =   1815
  48.    End
  49.    Begin VB.TextBox Text1 
  50.       Height          =   375
  51.       IMEMode         =   3  'DISABLE
  52.       Left            =   1080
  53.       PasswordChar    =   "*"
  54.       TabIndex        =   0
  55.       Top             =   360
  56.       Width           =   2295
  57.    End
  58.    Begin VB.Label Label4 
  59.       BackColor       =   &H000080FF&
  60.       Caption         =   "The Password for everything is ""x"" without the """
  61.       Height          =   855
  62.       Left            =   3480
  63.       TabIndex        =   6
  64.       Top             =   600
  65.       Width           =   1095
  66.    End
  67.    Begin VB.Label Label3 
  68.       BackColor       =   &H000080FF&
  69.       Caption         =   "Visit my webpage at:"
  70.       BeginProperty Font 
  71.          Name            =   "MS Sans Serif"
  72.          Size            =   12
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   375
  80.       Left            =   1080
  81.       TabIndex        =   4
  82.       Top             =   2280
  83.       Width           =   2175
  84.    End
  85.    Begin VB.Label Label2 
  86.       BackColor       =   &H000080FF&
  87.       BeginProperty Font 
  88.          Name            =   "MS Sans Serif"
  89.          Size            =   13.5
  90.          Charset         =   0
  91.          Weight          =   400
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       Height          =   375
  97.       Left            =   1320
  98.       TabIndex        =   3
  99.       Top             =   1560
  100.       Width           =   1815
  101.    End
  102.    Begin VB.Label Label1 
  103.       BackColor       =   &H000080FF&
  104.       Caption         =   "         Put Password Here"
  105.       Height          =   255
  106.       Left            =   1080
  107.       TabIndex        =   1
  108.       Top             =   120
  109.       Width           =   2295
  110.    End
  111.    Begin VB.Menu mnuFile 
  112.       Caption         =   "&File"
  113.       Begin VB.Menu mnuBrowser 
  114.          Caption         =   "Web Browser"
  115.       End
  116.       Begin VB.Menu mnuPassword 
  117.          Caption         =   "Password"
  118.          Shortcut        =   ^P
  119.       End
  120.       Begin VB.Menu mnuIP 
  121.          Caption         =   "Get IP Address"
  122.       End
  123.       Begin VB.Menu mnuCommand 
  124.          Caption         =   "Command Button Fun"
  125.       End
  126.       Begin VB.Menu mnuSpace 
  127.          Caption         =   "-"
  128.       End
  129.       Begin VB.Menu mnuExit2 
  130.          Caption         =   "Exit2"
  131.       End
  132.    End
  133. Attribute VB_Name = "Form1"
  134. Attribute VB_GlobalNameSpace = False
  135. Attribute VB_Creatable = False
  136. Attribute VB_PredeclaredId = True
  137. Attribute VB_Exposed = False
  138. Private Sub Command1_Click()
  139. If Text1.Text = "x" Then
  140. MsgBox "Great - password accepted!", 6, "Good Job"
  141. Unload Form1
  142. Form2.Show
  143. MsgBox "Sorry, that's wrong, try again!", 6, "Try Again"
  144. Text1.SetFocus
  145. Text1.Text = ""
  146. End If
  147. End Sub
  148. Private Sub mnuExit1_Click()
  149. End Sub
  150. Private Sub mnuBrowser_Click()
  151. Form6.Show
  152. End Sub
  153. Private Sub mnuCommand_Click()
  154. Form8.Show
  155. End Sub
  156. Private Sub mnuExit2_Click()
  157. End Sub
  158. Private Sub mnuIP_Click()
  159. Form7.Show
  160. End Sub
  161. Private Sub mnuPassword_Click()
  162. Form4.Show
  163. End Sub
  164. Private Sub Timer1_Timer()
  165. If Label2 <> CStr(Time) Then
  166. Label2.Caption = Time
  167. End If
  168. End Sub
  169.